home *** CD-ROM | disk | FTP | other *** search
/ Publication 48 / Publication_48_19xx_Civitas_de_Side_B.d64 / bas char-matr. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  203b  |  14 lines
  1. 0 print"[147]";:
  2. 10 a=8192:b=1024:c=1:d=704
  3. 30 a=a+c*8
  4. 50 fori=0to7
  5. 51 poked+i,peek(a+i)
  6. 60 forx=0to7
  7. 70 c=2^(7-x)
  8. 80 e=int(peek(d+i)/c)
  9. 90 poked+i,peek(d+i)-e*c
  10. 100 f=b+i*40+x
  11. 110 pokef,32
  12. 120 ife=1thenpokef,160
  13. 130 nextx,i
  14.